function [n2,ValueTitle]=getArticleTitle(VecValue,n2)

ValueTitle='';
TestTemp=0;
TestTemp2=0;
ValueTemp=size(VecValue,1)-13;
ValueTemp2=ValueTemp-1;
while n2<=ValueTemp&&TestTemp==0
    VecValueTemp3=VecValue(n2:n2+13,1);
    if strcmp(char(VecValueTemp3'),'<ArticleTitle>')==1
        n4=n2+14;
        TestTemp=1;
        while n2<=ValueTemp2&&TestTemp2==0
            VecValueTemp4=VecValue(n2:n2+14,1);
            if strcmp(char(VecValueTemp4'),'</ArticleTitle>')==1
                n5=n2-1;
                TestTemp2=1;
                VecValueTemp5=VecValue(n4:n5,1)';
                ValueTitle=char(VecValueTemp5);
            end
            n2=n2+1;
        end
    end
    n2=n2+1;
end